home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
a_utils
/
_archvrs
/
mac
/
mccmp134.bin
/
mac_compress32.rsrc
/
CODE_1.txt
< prev
next >
Wrap
Text File
|
1994-02-02
|
17KB
|
334 lines
# near model CODE resource
# entry label at 0x0000
entry:
00000000 0000 011A ori.b D0, 0x1A
export_0:
00000004 4278 0A4A clr.w [0x00000A4A /* FPState */]
00000008 9DCE sub.l A6, A6
0000000A 4EBA 002C jsr [PC + 0x2C /* 00000038 */]
0000000E 4EBA 0220 jsr [PC + 0x220 /* 00000230 */]
00000012 4267 clr.w -[A7]
00000014 4879 0000 FFFF pea.l [0x0000FFFF]
0000001A 486F 0004 pea.l [A7 + 0x4]
0000001E 4857 pea.l [A7]
00000020 3F3C 0001 move.w -[A7], 0x1
00000024 223A FFDA move.l D1, [PC - 0x26 /* 00000000 */]
00000028 4EB5 1000 jsr [A5 + D1.w]
0000002C A9F4 trap ExitToShell
0000002E 4EBA 02B2 jsr [PC + 0x2B2 /* 000002E2 */]
00000032 4EBA 022C jsr [PC + 0x22C /* 00000260 */]
00000036 4E75 rts
fn00000038:
00000038 598F subq.l A7, 4
0000003A 2F3C 5A45 524F move.l -[A7], 0x5A45524F /* 'ZERO' */
00000040 4267 clr.w -[A7]
00000042 A9A0 trap GetResource
00000044 2457 movea.l A2, [A7]
00000046 598F subq.l A7, 4
00000048 2F3C 4441 5441 move.l -[A7], 0x44415441 /* 'DATA' */
0000004E 4267 clr.w -[A7]
00000050 A9A0 trap GetResource
00000052 2057 movea.l A0, [A7]
00000054 2050 movea.l A0, [A0]
00000056 2278 0908 movea.l A1, [0x00000908 /* CurStackBase */]
0000005A 2452 movea.l A2, [A2]
0000005C 600E bra +0x10 /* 0000006C */
label0000005E:
0000005E 32D8 move.w [A1]+, [A0]+
00000060 660A bne +0xC /* 0000006C */
00000062 321A move.w D1, [A2]+
00000064 6002 bra +0x4 /* 00000068 */
label00000066:
00000066 4219 clr.b [A1]+
label00000068:
00000068 51C9 FFFC dbf D1, -0x6 /* 00000066 */
label0000006C:
0000006C BBC9 cmpa.l A5, A1
0000006E 66EE bne -0x10 /* 0000005E */
00000070 A9A3 trap ReleaseResource
00000072 A9A3 trap ReleaseResource
00000074 598F subq.l A7, 4
00000076 2F3C 4452 454C move.l -[A7], 0x4452454C /* 'DREL' */
0000007C 4267 clr.w -[A7]
0000007E A9A0 trap GetResource
00000080 2057 movea.l A0, [A7]
00000082 A025 trap GetHandleSize
00000084 2050 movea.l A0, [A0]
00000086 E240 asr D0.w, 1
00000088 240D move.l D2, A5
0000008A 6006 bra +0x8 /* 00000092 */
label0000008C:
0000008C 3218 move.w D1, [A0]+
0000008E D5B5 1000 add.l [A5 + D1.w], D2
label00000092:
00000092 51C8 FFF8 dbf D0, -0xA /* 0000008C */
00000096 A9A3 trap ReleaseResource
00000098 4E75 rts
export_1:
0000009A 205F movea.l A0, [A7]+
0000009C 3218 move.w D1, [A0]+
label0000009E:
0000009E 3418 move.w D2, [A0]+
000000A0 B058 cmp.w D0, [A0]+
000000A2 57C9 FFFA dbeq D1, -0x8 /* 0000009E */
000000A6 4A42 tst.w D2
label000000A8:
000000A8 67FE beq -0x0 /* 000000A8 */
000000AA 4EF0 20FC jmp [A0 + D2.w - 0x4]
export_2:
000000AE 205F movea.l A0, [A7]+
000000B0 3218 move.w D1, [A0]+
label000000B2:
000000B2 3418 move.w D2, [A0]+
000000B4 B098 cmp.l D0, [A0]+
000000B6 57C9 FFFA dbeq D1, -0x8 /* 000000B2 */
000000BA 4A42 tst.w D2
label000000BC:
000000BC 67FE beq -0x0 /* 000000BC */
000000BE 4EF0 20FA jmp [A0 + D2.w - 0x6]
export_3:
000000C2 205F movea.l A0, [A7]+
000000C4 3218 move.w D1, [A0]+
000000C6 3418 move.w D2, [A0]+
000000C8 B042 cmp.w D0, D2
000000CA 6E0A bgt +0xC /* 000000D6 */
000000CC 9041 sub.w D0, D1
000000CE 6D06 blt +0x8 /* 000000D6 */
000000D0 D040 add.w D0, D0
000000D2 41F0 0002 lea.l A0, [A0 + D0.w + 0x2]
label000000D6:
000000D6 3010 move.w D0, [A0]
label000000D8:
000000D8 67FE beq -0x0 /* 000000D8 */
000000DA 4EF0 0000 jmp [A0 + D0.w]
export_4:
000000DE 202F 0004 move.l D0, [A7 + 0x4]
000000E2 2F41 0004 move.l [A7 + 0x4], D1
000000E6 222F 0008 move.l D1, [A7 + 0x8]
000000EA 2F5F 0004 move.l [A7 + 0x4], [A7]+
000000EE 48E7 3C00 movem.l -[A7], D2,D3,D4,D5
000000F2 2400 move.l D2, D0
000000F4 2601 move.l D3, D1
000000F6 4842 swap.w D2
000000F8 C4C3 mulu.w D2, D3
000000FA 2800 move.l D4, D0
000000FC 2A01 move.l D5, D1
000000FE 4845 swap.w D5
00000100 C8C5 mulu.w D4, D5
00000102 D444 add.w D2, D4
00000104 4842 swap.w D2
00000106 4242 clr.w D2
00000108 C0C1 mulu.w D0, D1
0000010A D082 add.l D0, D2
0000010C 4CDF 003C movem.l D5,D4,D3,D2, [A7]+
00000110 221F move.l D1, [A7]+
00000112 4E75 rts
export_5:
00000114 202F 0004 move.l D0, [A7 + 0x4]
00000118 2F41 0004 move.l [A7 + 0x4], D1
0000011C 222F 0008 move.l D1, [A7 + 0x8]
00000120 2F5F 0004 move.l [A7 + 0x4], [A7]+
00000124 48E7 3100 movem.l -[A7], D2,D3,D7
00000128 4EBA 009C jsr [PC + 0x9C /* 000001C6 */]
0000012C 4CDF 008C movem.l D7,D3,D2, [A7]+
00000130 221F move.l D1, [A7]+
00000132 4E75 rts
export_6:
00000134 202F 0004 move.l D0, [A7 + 0x4]
00000138 2F41 0004 move.l [A7 + 0x4], D1
0000013C 222F 0008 move.l D1, [A7 + 0x8]
00000140 2F5F 0004 move.l [A7 + 0x4], [A7]+
00000144 48E7 3100 movem.l -[A7], D2,D3,D7
00000148 4EBA 007C jsr [PC + 0x7C /* 000001C6 */]
0000014C 2001 move.l D0, D1
0000014E 4CDF 008C movem.l D7,D3,D2, [A7]+
00000152 221F move.l D1, [A7]+
00000154 4E75 rts
export_7:
00000156 202F 0004 move.l D0, [A7 + 0x4]
0000015A 2F41 0004 move.l [A7 + 0x4], D1
0000015E 222F 0008 move.l D1, [A7 + 0x8]
00000162 2F5F 0004 move.l [A7 + 0x4], [A7]+
00000166 48E7 3100 movem.l -[A7], D2,D3,D7
0000016A 4EBA 002C jsr [PC + 0x2C /* 00000198 */]
0000016E 4CDF 008C movem.l D7,D3,D2, [A7]+
00000172 221F move.l D1, [A7]+
00000174 4E75 rts
export_8:
00000176 202F 0004 move.l D0, [A7 + 0x4]
0000017A 2F41 0004 move.l [A7 + 0x4], D1
0000017E 222F 0008 move.l D1, [A7 + 0x8]
00000182 2F5F 0004 move.l [A7 + 0x4], [A7]+
00000186 48E7 3100 movem.l -[A7], D2,D3,D7
0000018A 4EBA 000C jsr [PC + 0xC /* 00000198 */]
0000018E 2001 move.l D0, D1
00000190 4CDF 008C movem.l D7,D3,D2, [A7]+
00000194 221F move.l D1, [A7]+
00000196 4E75 rts
fn00000198:
00000198 4A80 tst.l D0
0000019A 6A1C bpl +0x1E /* 000001B8 */
0000019C 4A81 tst.l D1
0000019E 6A0C bpl +0xE /* 000001AC */
000001A0 4480 neg.l D0
000001A2 4481 neg.l D1
000001A4 4EBA 0020 jsr [PC + 0x20 /* 000001C6 */]
000001A8 4481 neg.l D1
000001AA 4E75 rts
label000001AC:
000001AC 4480 neg.l D0
000001AE 4EBA 0016 jsr [PC + 0x16 /* 000001C6 */]
000001B2 4480 neg.l D0
000001B4 4481 neg.l D1
000001B6 4E75 rts
label000001B8:
000001B8 4A81 tst.l D1
000001BA 6A0A bpl +0xC /* 000001C6 */
000001BC 4481 neg.l D1
000001BE 4EBA 0006 jsr [PC + 0x6 /* 000001C6 */]
000001C2 4480 neg.l D0
000001C4 4E75 rts
fn000001C6:
000001C6 2E3C 0000 FFFF move.l D7, 0xFFFF
000001CC B280 cmp.l D1, D0
000001CE 6306 bls +0x8 /* 000001D6 */
000001D0 2200 move.l D1, D0
000001D2 7000 moveq.l D0, 0x00
000001D4 4E75 rts
label000001D6:
000001D6 B087 cmp.l D0, D7
000001D8 620C bhi +0xE /* 000001E6 */
000001DA 80C1 divu.w D0, D1
000001DC 4840 swap.w D0
000001DE 3200 move.w D1, D0
000001E0 4240 clr.w D0
000001E2 4840 swap.w D0
000001E4 4E75 rts
label000001E6:
000001E6 B287 cmp.l D1, D7
000001E8 621A bhi +0x1C /* 00000204 */
000001EA 2E00 move.l D7, D0
000001EC 4240 clr.w D0
000001EE 4840 swap.w D0
000001F0 80C1 divu.w D0, D1
000001F2 4840 swap.w D0
000001F4 4847 swap.w D7
000001F6 3E00 move.w D7, D0
000001F8 4847 swap.w D7
000001FA 8EC1 divu.w D7, D1
000001FC 3007 move.w D0, D7
000001FE 4847 swap.w D7
00000200 3207 move.w D1, D7
00000202 4E75 rts
label00000204:
00000204 2400 move.l D2, D0
00000206 2601 move.l D3, D1
label00000208:
00000208 E288 lsr D0, 1
0000020A E289 lsr D1, 1
0000020C B287 cmp.l D1, D7
0000020E 62F8 bhi -0x6 /* 00000208 */
00000210 80C1 divu.w D0, D1
00000212 C087 and.l D0, D7
label00000214:
00000214 3203 move.w D1, D3
00000216 C2C0 mulu.w D1, D0
00000218 2E03 move.l D7, D3
0000021A 4847 swap.w D7
0000021C CEC0 mulu.w D7, D0
0000021E 4847 swap.w D7
00000220 D287 add.l D1, D7
00000222 6508 bcs +0xA /* 0000022C */
00000224 9282 sub.l D1, D2
00000226 6204 bhi +0x6 /* 0000022C */
00000228 4481 neg.l D1
0000022A 4E75 rts
label0000022C:
0000022C 5340 subq.w D0, 1
0000022E 60E4 bra -0x1A /* 00000214 */
fn00000230:
00000230 323C A9F0 move.w D1, 0xA9F0
00000234 43FA FE00 lea.l A1, [PC - 0x200 /* 00000036 */]
00000238 4EBA 0068 jsr [PC + 0x68 /* 000002A2 */]
0000023C 323C A9F2 move.w D1, 0xA9F2
00000240 43FA FDF0 lea.l A1, [PC - 0x210 /* 00000032 */]
00000244 4EBA 005C jsr [PC + 0x5C /* 000002A2 */]
00000248 323C A9F3 move.w D1, 0xA9F3
0000024C 43FA FDE4 lea.l A1, [PC - 0x21C /* 00000032 */]
00000250 4EBA 0050 jsr [PC + 0x50 /* 000002A2 */]
00000254 323C A9F4 move.w D1, 0xA9F4
00000258 43FA FDD4 lea.l A1, [PC - 0x22C /* 0000002E */]
0000025C 4EFA 0044 jmp [PC + 0x44 /* 000002A2 */]
fn00000260:
00000260 2F08 move.l -[A7], A0
00000262 206F 0008 movea.l A0, [A7 + 0x8]
00000266 2F68 0002 0008 move.l [A7 + 0x8], [A0 + 0x2]
0000026C 2078 02A6 movea.l A0, [0x000002A6 /* SysZone */]
00000270 700C moveq.l D0, 0x0C
00000272 D090 add.l D0, [A0]
00000274 B0B8 02AA cmp.l D0, [0x000002AA /* ApplZone */]
00000278 6624 bne +0x26 /* 0000029E */
0000027A 4EBA 0066 jsr [PC + 0x66 /* 000002E2 */]
0000027E 323C A9F0 move.w D1, 0xA9F0
00000282 4EBA 003A jsr [PC + 0x3A /* 000002BE */]
00000286 323C A9F2 move.w D1, 0xA9F2
0000028A 4EBA 0032 jsr [PC + 0x32 /* 000002BE */]
0000028E 323C A9F3 move.w D1, 0xA9F3
00000292 4EBA 002A jsr [PC + 0x2A /* 000002BE */]
00000296 323C A9F4 move.w D1, 0xA9F4
0000029A 4EBA 0022 jsr [PC + 0x22 /* 000002BE */]
label0000029E:
0000029E 205F movea.l A0, [A7]+
000002A0 4E75 rts
fn000002A2:
000002A2 3001 move.w D0, D1
000002A4 A146 trap GetTrapAddress, flags=1
000002A6 2448 movea.l A2, A0
000002A8 700C moveq.l D0, 0x0C
000002AA 6050 bra +0x52 /* 000002FC */
label000002AC:
000002AC 3001 move.w D0, D1
000002AE A047 trap SetTrapAddress
000002B0 30FC 4EB9 move.w [A0]+, 0x4EB9
000002B4 20C9 move.l [A0]+, A1
000002B6 30FC 4EF9 move.w [A0]+, 0x4EF9
000002BA 20CA move.l [A0]+, A2
000002BC 4E75 rts
fn000002BE:
000002BE 3001 move.w D0, D1
000002C0 A146 trap GetTrapAddress, flags=1
000002C2 2268 0008 movea.l A1, [A0 + 0x8]
000002C6 A01F trap DisposPtr/DisposePtr
000002C8 3001 move.w D0, D1
000002CA 2049 movea.l A0, A1
000002CC A047 trap SetTrapAddress
000002CE 4E75 rts
000002D0 0000 0000 ori.b D0, 0x0
000002D4 0000 0000 ori.b D0, 0x0
export_9:
000002D8 41FA FFF6 lea.l A0, [PC - 0xA /* 000002D0 */]
000002DC 20AF 0004 move.l [A0], [A7 + 0x4]
000002E0 4E75 rts
fn000002E2:
000002E2 41FA FFEC lea.l A0, [PC - 0x14 /* 000002D0 */]
000002E6 2010 move.l D0, [A0]
000002E8 6706 beq +0x8 /* 000002F0 */
000002EA 4290 clr.l [A0]
000002EC 2040 movea.l A0, D0
000002EE 4E90 jsr [A0]
label000002F0:
000002F0 203A FFE2 move.l D0, [PC - 0x1E /* 000002D4 */]
000002F4 6704 beq +0x6 /* 000002FA */
000002F6 2040 movea.l A0, D0
000002F8 4290 clr.l [A0]
label000002FA:
000002FA 4E75 rts
label000002FC:
000002FC 4A78 028E tst.w [0x0000028E /* ROM85 */]
00000300 6A04 bpl +0x6 /* 00000306 */
00000302 A51E trap NewPtrSys, flags=5
00000304 60A6 bra -0x58 /* 000002AC */
label00000306:
00000306 A11E trap NewPtr, flags=1
00000308 60A2 bra -0x5C /* 000002AC */